home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest92 / B01 EBS anti-body < prev    next >
Text File  |  1992-12-08  |  810b  |  26 lines
  1. ;Name anti-body
  2. ;EBS 1992 Qualifying Tournament Entry
  3. ;Author Nandor Sieben
  4. ;Address aznxs@asuacad.bitnet   or   aznxs@asuvm.inre.asu.edu
  5. ;I'm not an ICWS member
  6. ;
  7. ;designed for coresize 8192
  8. ;3457 is an optima type mod 1 constant for coresize 8192
  9. ;change it to 3039 for coresize 8000
  10. ;
  11. ret     add    offset    ,   start        ; standard cmp scan
  12. start   cmp    ret-3457  , ret
  13.         slt    #20 , start
  14.         jmp    ret
  15.         mov    bomb+2 , @start
  16.         mov    bomb , <start
  17. back    add    next , start
  18.         jmz    start , ret-1
  19. bomb    spl    0, <ret-7                  ;imp-ring gate part 1
  20.         mov    bomb2 , <start+2
  21.         jmp    -1
  22. next    dat    <-3457 , < -3457+1
  23. offset  dat    #(-6914) , #(-6914)
  24. bomb2   dat    <ret-bomb-8 , <-1000       ;imp-ring gate part 2
  25.         end    ret
  26.